10 PRINT"[147]GEWUENSCHTE [212]EXTSPEICHERGRENZE (NEU):"
20 INPUT"DEZIMALE [193]DRESSE:  65085[157][157][157][157][157][157][157]";A
25 IFA>65085 OR A<40000 THEN PRINT"UNGUELTIGER [215]ERT":END
30 B=A-31000
40 C=INT(B/256)
50 D=B-C*256
60 PRINT"ERFORDERLICHE [215]ERTE FUER [211]PEICHERSTELLEN"
70 PRINT"45 ($2D):"D
80 PRINT"46 ($2E):"C
90 PRINT"[212]EXTSPEICHER (NEU):"B-8"[218]EICHEN"
100 PRINT"(OHNE [198]ORMATZEILE)"